home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / WhatIs.asc < prev   
Text File  |  1980-03-10  |  691b  |  32 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -What Is
  13. '
  14. Screen Open 0,640,256,16,$8000
  15. Curs Off : Flash Off : Cls 0
  16. '
  17. Do 
  18.    A$=Fsel$("")
  19.    Open In 1,A$ : L=Lof(1) : Close 1
  20.    Reserve As Work 10,L
  21.    ST10=Start(10)
  22.    Bload A$,ST10
  23.    '
  24.    E=What Is(ST10)
  25.    '
  26.    If E=-1
  27.       Print 'Fichier inconnu'
  28.    Else 
  29.       Print Peek$(Varptr(E),4)
  30.    End If 
  31. Loop 
  32.